home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh45a.d64 / listing 21 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  31 lines
  1. 5 S=54272:POKE S+24,15:POKE S,220:POKE S+1,68:POKE S+5,15:POKE 6+6,215
  2. 10 POKE S+7,120:POKE S+8,100:POKE S+12,15:POKE S+13,215
  3. 15 PRINTCHR$(147):V=53248:POKE V+21,1
  4. 20 FOR S1=12288 TO 12350:READ Q1:POKE S1,Q1:NEXT
  5. 25 FOR S2=12352 TO 12414:READ Q2:POKE S2,Q2:NEXT
  6. 30 FOR S3=12416 TO 12478:READ Q3:POKE S3,Q3:NEXT
  7. 35 POKE V+39,15:POKE V+1,68
  8. 40 PRINTTAB(160)"ICH BIN DIE TANZMAUS ![154]"
  9. 45 P=192
  10. 50 FOR X=0 TO 347 STEP 3
  11. 55 RX=INT(X/256):LX=X-RX*256
  12. 60 POKE V,LX:POKE V+16,RX
  13. 70 IF P=192 THEN GOSUB 200
  14. 75 IF P=193 THEN GOSUB 300
  15. 80 POKE 2040,P:FOR T=1 TO 60:NEXT
  16. 85 P=P+1:IF P>194 THEN P=192
  17. 90 NEXT
  18. 95 END
  19. 100 DATA 30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
  20. 101 DATA 63,255,252,31,187,248,3,187,192,1,255,128,3,189,192,1,231,128,1,255,0
  21. 102 DATA 31,255,0,0,124,0,0,254,0,1,199,32,3,131,224,7,1,192,1,192,0,3,192,0
  22. 103 DATA 30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
  23. 104 DATA 63,255,252,31,221,248,3,221,192,1,255,128,3,255,192,1,195,128,1,231,3
  24. 105 DATA 31,255,255,0,124,0,0,254,0,1,199,0,7,1,128,7,0,204,1,128,124,7,128,56
  25. 106 DATA 30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
  26. 107 DATA 63,255,252,31,221,248,3,221,192,1,255,134,3,189,204,1,199,152,1,255,48
  27. 108 DATA 1,255,224,1,252,0,3,254,0
  28. 109 DATA 7,14,0,204,14,0,248,56,0,112,112,0,0,60,0,-1
  29. 200 POKE S+4,129:POKE S+4,128:RETURN
  30. 300 POKE S+11,129:POKE S+11,128:RETURN
  31.